Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue24/survive/FMPYMT.DFM/FMPYMT.txt

Text File | 1997-06-23 | 4.2 KB | 196 lines

object frmPayment: TfrmPayment
  Left = 225
  Top = 154
  Width = 483
  Height = 377
  BorderIcons = [biSystemMenu]
  Caption = 'Payment'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object grpOutstandingCredits: TGroupBox
    Left = 8
    Top = 6
    Width = 460
    Height = 147
    Caption = ' Outstanding Credits '
    TabOrder = 0
    object grdCredits: TDBMultiGrid
      Left = 6
      Top = 16
      Width = 320
      Height = 120
      DataSource = dsCreditsOut
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      DataField = 'CREDITNO'
      OnSelected = grdCreditsSelected
    end
    object btnSelectAll: TButton
      Left = 355
      Top = 46
      Width = 75
      Height = 25
      Caption = 'Select All'
      TabOrder = 1
      OnClick = btnSelectAllClick
    end
    object btnClearAll: TButton
      Left = 355
      Top = 75
      Width = 75
      Height = 25
      Caption = 'Clear All'
      TabOrder = 2
      OnClick = btnClearAllClick
    end
  end
  object grpPayment: TGroupBox
    Left = 8
    Top = 156
    Width = 460
    Height = 153
    Caption = ' Payment '
    TabOrder = 1
    object grdPayment: TStringGrid
      Left = 10
      Top = 14
      Width = 260
      Height = 130
      ColCount = 2
      DefaultColWidth = 128
      DefaultRowHeight = 20
      RowCount = 8
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
      ScrollBars = ssVertical
      TabOrder = 0
      OnSetEditText = grdPaymentSetEditText
      RowHeights = (
        20
        20
        20
        20
        20
        20
        20
        20)
    end
    object grpTotals: TGroupBox
      Left = 281
      Top = 9
      Width = 171
      Height = 96
      Caption = ' Totals '
      TabOrder = 1
      object Label1: TLabel
        Left = 8
        Top = 17
        Width = 65
        Height = 13
        Caption = 'Credits to Pay'
      end
      object Label2: TLabel
        Left = 8
        Top = 43
        Width = 41
        Height = 13
        Caption = 'Payment'
      end
      object Label3: TLabel
        Left = 8
        Top = 69
        Width = 62
        Height = 13
        Caption = 'Balance Due'
      end
      object edtTotalToPay: TEdit
        Left = 91
        Top = 13
        Width = 70
        Height = 22
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 10
        ParentColor = True
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object edtTotalPaid: TEdit
        Left = 91
        Top = 39
        Width = 70
        Height = 22
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 10
        ParentColor = True
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object edtBalanceDue: TEdit
        Left = 91
        Top = 65
        Width = 70
        Height = 22
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 10
        ParentColor = True
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
    end
    object btnAllocation: TButton
      Left = 296
      Top = 112
      Width = 147
      Height = 25
      Caption = 'Allocate Payment'
      TabOrder = 2
      OnClick = btnAllocationClick
    end
  end
  object btnPost: TButton
    Left = 158
    Top = 316
    Width = 75
    Height = 25
    Caption = 'Post'
    ModalResult = 1
    TabOrder = 2
    OnClick = btnPostClick
  end
  object btnCancel: TButton
    Left = 245
    Top = 316
    Width = 75
    Height = 25
    Caption = 'Cancel'
    TabOrder = 3
    OnClick = btnCancelClick
  end
  object dsCreditsOut: TDataSource
    DataSet = dmDataModule.qryCreditsOutByCustomer
    Left = 19
    Top = 72
  end
end